home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Deutsche Edition 1
/
Deutsche Edition 1.iso
/
bavarian
/
011-020
/
020_denkspiele
/
4gewinnt.a
< prev
next >
Wrap
Text File
|
1993-11-04
|
469b
|
34 lines
include 'df0:exec.s'
include 'df0:dos.s'
cmp.l #$48e7ff3e,$50000
beq startprg
move.l $4,a6
moveq #31,d0
move.l #dosname,a1
jsr _OpenLibrary(a6)
move.l d0,dosbase
move.l d0,a6
move.l #conname,d1
move.l #1005,d2
jsr _Open(a6)
move.l d0,file
move.l d0,d1
move.l #$4de00,d2
move.l #$5000,d3
jsr _Read(a6)
move.l file,d1
jsr _Close(a6)
startprg:
jmp $50000
dosname: dc.b 'dos.library',0
conname: dc.b '4gew.2',0,0
dosbase: dc.l 0
file: dc.l 0